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--File: WEWindows.mesa 
--Edited by: 

Sandman April 21. 1978 11:06 AM 

Barbara July 18, 1978 3:01 PM 

DIRECTORY 

MenuDefs: FROM "menudefs" USING [DestroyMenu, Menultem], 
OsStaticDefs: FROM "osstaticdef s" USING [OsStatics], 
RectangleDefs: FROM "rectangledef s" USING [ 

CreateRectangle, CursorToMapCoords, DestroyRectangle, 

GrowRectangle, MoveRectangle] , 
SegmentDefs: FROM "segmentdef s" USING [FileNameError] , 
StreamDefs: FROM "streamdeFs" USING [ 

CloseDiskStream, CreateDisplayStream. CreateKeyStream, Equallndex. 

Getlndex, Modifylndex, Normal izelndex, OpenDiskStream, OpenKeyStream, 

Setlndex, StreamError] , 
StringDefs: FROM "stringdefs" USING [Inval idNumber , StringToNumber]. 
SystemDefs: FROM "systemdefs" USING [ 

Al locateHeapNode, FreeHeapNode, FreeHeapString], 
WindExDefs: FROM "windexdefs" USING [ 

AMouseButton , AssignScratchFile, CursorToRectangleCoords, CursorType, 

GetMouseButton, maxscratch, NoteNameError, Nulllndex, Originlndex, 

SetCursor, WEDataHandle, xcursorloc, xmouseloc, ycursorloc, ymouseloc], 
WindowDefs: FROM "windowdefs" USING [ 

Al terWindowType, CreateDispl ayWindow, DestroyDispl ayWindow, DisplayHandle. 

FindDispl ayWindow, GetCurrentDisplayWindow, GetSelection, MarkSelection , 

PaintDisplayWindow, Rptr, SetlndexForWindow, StreamHandle, Streamlndex, 

WindowHandle.xCoord, yCoord]; 

DEFINITIONS FROM StreamDefs, MenuDefs. RectangleDefs. WindowDefs, WindExDefs; 

WEWindows: PROGRAM [WEState: WEDataHandle] 

IMPORTS SegmentDefs, StreamDefs, SystemDefs, MenuDefs, 

RectangleDefs, WindowDefs, WindExDefs, StringDefs 
EXPORTS WindExDefs 
SHARES StreamDefs, WindExDefs « 

BEGIN 

OPEN WEState; 

CR: CHARACTER « 15C: 

-- some externals 

nCommands: CARDINAL » 12; 



create: CARDINAL 


« 0; 


destroy: CARDINAL « 1; 


move: 


CARDINAL = 


2; 


grow: 


CARDINAL » 


3; 


load: 


CARDINAL « 


4; 


stuff; 


: CARDINAL • 


» 5; 


find: 


CARDINAL » 


6; 


break 


: CARDINAL « 


- 7; 


clear 


: CARDINAL « 


» 8; 


trace: 


: CARDINAL = 9; 


position: CARDINAL « 1 


keys: 


CARDINAL « 


11; 



10; 



PutSelect: PUBLIC PROCEDURE [w: WindowHandle, x: xCoord, y: yCoord]= 
BEGIN 

-- Declare Locals 
i: CARDINAL; 
str: STRING; 
nw: WindowHandle; 
doit: BOOLEAN; 

[nw, doit] <- WindowFrontEnd[w, leftbutton]; 
IF doit THEN 

BEGIN 

-- get current selection and jam it into the keyboard stream 

str <- GetSelection[w] ; 

IF nw.ks // NIL THEN 

FOR i DECREASING IN [0 . . str . 1 engtti) DO 
nw.ks . putback[nw.ks , str[i]]; 
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ENDLOOP; 

SystemDef s.Fre0HeapString[str]; 

END; 
ButtonWait; 

SetCursor[textpo inter]; 
END; 

CreateWindow: PUBLIC PROCEDURE [w: WindowHandle, x: xCoord, y: yCoord] » 
BEGIN 

i: CARDINAL; 
rectangle: Rptr; 
ds: Displ ayHandle; 
ks: StreamHandle; 
name: STRING; 
nw: WindowHandle; 
mb: AMouseButton ♦- None; 
SetCursor[leftbutton]; 
UNTIL (mb ^ GetMouseButton[]) « Red DO 

IF mb « Blue THEN 

BEGIN ButtonWait; SetCursor[textpointer] ; RETURN; END; 

ENDLOOP; 
SetCursori hour glass] ; 
ks ♦- StreamDefs.CreateKeyStream[]; 

[x,y] <- CursorToMapCoords[defaul tmapdata, xcursorloct+cxa, ycursorloct+cya]; 
rectangle ♦- CreateRectangle[defaul tmapdata, x, 300, y, 75]; 
[name, i] ^ AssignScratchFile[] ; 
ds <- CreateDisplayStream[rectangle]; 

nw *- CreateDisplayWindow[scratch , rectangle, ds, ks, name]; 
scratchf iles[i] ♦- nw.file; 
SystemDef s . FreeHeapSt ring [name]; 
StreamDef s .OpenKeyStream[ks]; 
ButtonWait; 

SetCursor[textpo inter]; 
END; 

DestroyWindow: PUBLIC PROCEDURE [w: WindowHandle, x: xCoord, y: yCoord]« 
BEGIN 

i: CARDINAL; 
doit: BOOLEAN; 
nw: WindowHandle; 

[nw, doit] *- WindowFrontEnd[w, bullseye]; 
IF doit THEN 
BEGIN 

-- check if we can delete this one 
FOR i IN [0..4) DO 

IF windows[i] « nw THEN 

BEGIN ButtonWait[]; SetCursor[textpointer] ; RETURN; END; 
ENDLOOP; 
-- check if one of our scratch files is in the window now 
FOR i IN [0. .maxscratch) DO 

IF scratchf iles[i] « nw.file THEN 

-- deallocate it (gets automatically deletedl) 
BEGIN scratchfiles[i] <- NIL; EXIT; END; 
ENDLOOP; 
-- get rid of all stuff in the window 
IF nw.ds ^ NIL THEN nw, ds . destroy[nw . ds] ; 
IF nw.ks // NIL THEN nw. ks . destroy[nw . ks] ; 
IF nw.menu # NIL THEN DestroyMenu[nw.menu] ; 
De stroyRect an gle[nw. rectangle]; 
DestroyDispl ayWindow[nw] ; 
-- repaint current if not deleted one 
IF nw # w THEN PaintDisplayWindow[w] 
ELSE-- destroy set a new guy currentll 
BEGIN 

nw <- GetCurrentDisplayWindow[]; 
StreamDef s .OpenKeyStream[nw. ks] ; 
MarkSelection[nw] ; 
END; 
END; 

ButtonWait; 

SetCursor[ text pointer]; 
END; 

MovoWindow: PUBLIC PROCEDURE [w: WindowHandle, x: xCoord. y: yCoord] « 
BEGIN 
-- define locals 
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savex, mapx: xCoord; 

savey, mapy: yCoord; 

mb: AMouseButton; 

r: Rptr ■ w. rectangle; 

-- jam cursor 

SetCursor[1eftbutton]; 

X <- xmouseloct ^ xcursorloct <- r. bitmap. xO + r.xO+cxa; 

y ♦- ymouseloct <- ycursorloct 4- r. bitmap. yO + r.yO+cya; 

[savex, savey] *- CursorToMapCoords[r .bitmap , x, y]; 

-- while no buttons are down move it 

WHILE (mb ^ GetMous0Button[]) ^ Red DO 

IF mb ■ Blue THEN BEGIN MoveRectangl e[r . savex , savey]; EXIT; END; 

[mapx, mapy] ^ CursorToMapCoords[r .bitmap, x, y]; 

X ♦- IF INTEGER[mapx] < THEN ELSE mapx; 

y ^ IF INTEGER[mapy] < THEN ELSE mapy; 

MoveRectangle[r, x, y]; 

X <- xcursorloct; 

y *- ycursorloct; 

ENDLOOP; 
ButtonWait[]; 

-- now paint it for possible cleanup 
PaintDisplayWindow[w] ; 
Se tCu r so r[textpo inter]; 
END; 

GrowWindow: PUBLIC PROCEDURE [w: WindowHandle , x: xCoord, y: yCoord]- 
BEGIN 

savewidth, width: xCoord; 
saveheight, height: yCoord; 
mb: AMouseButton; 
r: Rptr « w. rectangle; 

-- first move the cursor to lower right corner 
SetCursor[leftbutton]; 
X ♦- r .bitmap. xO+r .xO+r.cw; 
xmouseloct ^ xcursorloct «- x; 
y <- r. bitmap. yO+r .yO+r.ch; 
ymouseloct <- ycursorloct <- y; 

[savewidth, saveheight] <- CursorToRectangleCoords[w. rectangle, x, y]; 
-- while no buttons are down grow it 
WHILE (mb ^ GetMouseButton[]) # Red DO 

IF GetMouseButton[] « Blue THEN 

BEGIN GrowRectangle[r, savewidth, saveheight]; EXIT; END; 

[width, height] <- CursorToRectangleCoords[w. rectangle, x, y]; 

width <- MAX[width. 35]; 

height *- MAX[height, 35]; 

GrowRectangle[r, width, height]; 

x <- xcursorloct; y 4- ycursorloct; 

ENDLOOP; 
ButtonWait[]; 

-- now paint it for cleanup 
PaintDisplayWindow[w]; 
SetCursor[textpo inter]; 
END; 

Load: PROCEDURE [w: WindowHandle. str: STRING]- 
BEGIN 

i: CARDINAL; 

-- check if one of our scratch files is in the window now 
FOR i IN [0. .maxscratch) DO 

IF scratchfiles[i] « w.file THEN 

-- deallocate it (gets automatically deletedl) 
BEGIN scratchf nes[i] <- NIL; EXIT; END; 

ENDLOOP; 
IF str. length > 38 THEN str. length +- 38; -- max file name length 
Al terWindowType[w, file, str 1 SegmentDef s . Fi leNameError «> 

BEGIN NoteNameError[w. str]; CONTINUE; END]; 
w.ks <- defaultks; 
RETURN 
END; 

LoadThisWindow: PUBLIC PROCEDURE [w: WindowHandle]- 
BEGIN 

str: STRING; 
SeiCurs or [hourglass]; 
str ♦- GetSelection[w]; 
Load[w, str]; 
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SystemDef s.Fre0HeapString[str]; 

PaintDisplayWindow[w] ; 

Se tCu r so r[ text pointer]; 

RETURN 

END; 

LoadWindow: PUBLIC PROCEDURE [w: WindowHandle , x: xCoord, y: yCoord]- 
BEGIN 

-- define locals 
doit: BOOLEAN; 
nw: WindowHandle; 

[nw. doit] ♦- WindowFrontEnd[w, leftbutton]; 
SetCursor[ hourglass]; 
IF doit AND windows[0] # nw THEN 

BEGIN 

str: STRING ^ GetSelection[w] ; 

Load[nWt str]; 

SystemDef s. FreeHeapString[str] ; 

IF w " nw THEN PaintDispl ayWindow[w] ; 

END; 
ButtonWait[]; 
Se tCur so r[textpo inter]; 
END; 

SetPosition: PROCEDURE [w: WindowHandle, x: xCoord. y: yCoord] - 
BEGIN 

-- Declare Locals 
str: STRING; 
nw: WindowHandle; 
scrollto: Streamlndex; 
doit: BOOLEAN; 
position: CARDINAL; 

[nw, doit] ^ WindowFrontEnd[w, leftbutton]; 
SetCursor[hourglass]; 
-- get current selection 

IF doit AND NOT Equal Index[w. selection. rightindex, Nulllndex] THEN 
BEGIN 

str <- GetSelection[w]; 
w ♦- GetCurrentDisplayWindow[]; 
IF w j^ nw AND nw.file # NIL THEN 
OpenDiskStream[nw. file 
1 StreamError «> 
BEGIN 

nw.eofindex *- Getlndex[nw.f ile]; 
RESUME 
END]; 
position *- StringDef s.StringToNumber[str, 10 

! StringDef s . Inval idNumber => GOTO badnumber]; 
scrollto ♦- Normal izelndex[[0 , position]]; 
SELECT nw.type FROM 
clear => NULL; 
random «> NULL; 
scratch, 
scriptfile «> 
BEGIN 

IF scrollto = nw.tempindex THEN RETURN; 
nw.tempindex ♦- scrollto; 
nw. ds .options. StopBottom ^ TRUE; 
END; 
file ■> 
BEGIN 

IF scrollto « nw.fileindex THEN RETURN; 
nw.fileindex ♦- scrollto; 
END; 
ENDCASE; 
IF nw ^ w AND nw.file ^ NIL THEN CloseDiskStream[nw.f i le] ; 
SystemDef s . FreeHeapString[str] ; 
EXITS 

badnumber «> SystemDef s . Fre8H0apString[str]; 
END; 
ButtonWait[]; 
SetCursor[textpo inter]; 
END; 

FindSelection: PROCEDURE[w: WindowHandle, x: xCoord, y: yCoord]" 
BEGIN 
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-- Declare Locals 
str: STRING; 
nw: WindowHandle; 
scrollto: Streamlndex; 
doit: BOOLEAN; 
noscroll: BOOLEAN; 

[nw, doit] <- WindowFrontEnd[w, leftbutton]; 
SetCursor [hourglass]; 
-- get current selection 

IF doit AND NOT Equal Index[w. selection . rightindex, Nulllndex] THEN 
BEGIN 

str <- GetSelection[w]; 
w ^ GetCurrentDisplayWindow[i; 
IF w j^ nw AND nw.file /^ NIL THEN 
OpenDiskStream[nw.f ile 
I StreamError -> 
BEGIN 

nw.eofindex <- Getlndex[nw.f ile] ; 
RESUME 
END 

]; 

--do a text string search starting from the end of the current selection 
IF Equallndex[nw. selection. rightindex, Nulllndex] THEN 

nw. selection . rightindex <- Originlndex; 
BEGIN 
[scrollto, nw. selection. leftindex, nw. selection . rightindex] ♦- 

TextSearch[nw, str, nw. selection . rightindex 
I SearchFailed «> GOTO fail]; 
--scroll file to beginning of line containing text 
noscroll <- Equal Index[scrol 1 to, w. selection. rightindex]; 
IF nw.type « scratch OR nw.type = scriptfile 

THEN nw.tempindex *- scrollto; 
IF NOT noscroll THEN SetIndexForWindow[nw, scrollto] 
ELSE IF nw « w THEN PaintDispl ayWindow[nw] ; 
EXITS fail »> 

IF nw •» w THEN PaintDisplayWindow[nw]; 
END; 

IF nw i^f w AND nw.file ff NIL THEN CloseDiskStream[nw.f ile]; 
SystemDef s . FreeHeapString[str]; 
END; 
ButtonWait[]; 
SetCursor [text pointer]; 
END; 

SearchFailed: ERROR » CODE; 

TextSearch: PROCEDURE [w: WindowHandle, s: STRING, pos: Streamlndex] 
RETURNS [Streamlndex, Streamlndex, Streamlndex] " 
-- searches for s using the Knuth, Pratt, Morris algorithm. 
-- returns stream index of the start of the line containing s. 
BEGIN 

i, j: INTEGER; 
char: CHARACTER; 
1: INTEGER « s. length; 
offset: INTEGER <- 1; 

ff: DESCRIPTOR FOR ARRAY OF INTEGER; -- failure function 
IF 1 = THEN ERROR SearchFailed; -- empty string 
ff <r DESCRIPTOR[SystemDefs.AllocateHeapNode[l],l]; 
-- set up failure function 
j ^ 0; i ^ ff[0] ♦- -1; 
WHILE j < 1-1 DO 

WHILE i >« AND s[j] # s[i] DO i <- ff[i] ENDLOOP; 

i *- i + 1; j ^ j + 1; 

ff[j] ^ IF s[j] « s[i] THEN ff[i] ELSE i; 

ENDLOOP; 
Setlndex[w. file. pos]; 
char <- w.f ile. get[w. file]; 
j 4_ ; -- j a pattern index 
DO ENABLE UNWIND «> SystemDef s . FreeHeapNode[BASE[f f]] ; 

IF j >« 1 THEN EXIT; 

char <- w. file. get[w. file 1 StreamError -> GOTO fail]; 

offset <- offset+1; 

IF char - CR THEN 

BEGIN pos ^ Modifylndex[pos, offset]; offset ^ END; 

WHILE j >- AND char ff s[j] DO J <- ff[j] ENDLOOP; 
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REPEAT 

fail ■> ERROR SearchFalled; 

ENDLOOP; 
SystemD0fs.FreeH0apNode[BASE[ff]]; 

RETURN[pos, ModifyIndex[pos, offset-!], ModifyIndex[pos ,off set-1]] 
END; 

WindowFrontEnd: PUBLIC PROCEDURE [w: WindowHandle, cursor: CursorType] 
RETURNS [WindowHandle, BOOLEAN] ■ 
BEGIN 

-- Declare Locals 
nw: WindowHandle; 
x: xCoord; y: yCoord; 
mb: AMouseButton; 

-- ask for window to put stuff into 
SetCursor[cursor]; 

-- wait to select a window or say ignore 
UNTIL (mb ^ G0tMouseButton[]) « Red DO 

IF mb - Blue THEN RETURN[w, FALSE]; 

ENDLOOP; 
-- now get selected window 
X ^ xcursorloct+cxa; y ^ ycursorloct+cya; 
[nw, X, y] ^ FindDispl ayWindow[x, y]; 
IF nw « NIL THEN nw <- w; 
RETURN[nw, TRUE]; 
END; 

KeysetMessage: ARRAY BOOLEAN OF STRING ^ ["Keys On", "Keys Off"]; 

EnableKeyset: PUBLIC PROCEDURE [w: WindowHandle, x: xCoord, y: yCoord] ■ 
BEGIN 
IF OsStaticDefs.OsStatics.AltoVersion.engineeringnumber - 4 THEN 

useKeyset ^ FALSE 
ELSE menuarray[keys]. keyword ^ KeysetMessage[useKeyset <- -useKeyset]; 
END; 

ButtonWait: PROCEDURE - 
BEGIN 

-- wait until all button are up 
UNTIL GetMouseButton[] - None DO 

NULL; 

ENDLOOP; 
RETURN; 
END; 

-- initialization for windows module 

InitWindows: PROCEDURE - 
BEGIN OPEN SystemDefs; 
menuarray ♦- 

DESCRIPTOR[ All oca teHeapNode[nCommands*SIZE[MenuI tern]], nCommands]; 
menuarray[create] *- Menultem[" Create", CreateWindow]; 
menuarray[destroy] <- MenuItem["Destroy" , DestroyWindow]; 
menuarrayfmove] ♦- Menultem[" Move", MoveWindow]; 
menuarray[grow] ♦- Menultem[" Grow", GrowWindow]; 
menuarray[load] ^ Menultem[" Load", LoadWindow]; 
menuarray[stuff] <- MenuItem["Stuff It", PutSelect]; 
menuarray[f ind] *- Menultem[" Find", FindSelection]; 
menuarray[position] *- MenuItem["Set Pos", SetPosition] ; 

menuarray[keys] <- MenuItem[KeysetMessage[useKeyset <- FALSE], EnableKeyset]; 
END; 

-- MAIN BODY CODE 
Ini tWindows[] ; 

END. of wmanwindows 



